home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / checkaga.lha / checkaga / checkagaTest.e < prev    next >
Encoding:
Text File  |  1995-01-01  |  200 b   |  11 lines
  1. /*
  2. ** Program to test the module 'other/checkaga'
  3. */
  4.  
  5. MODULE 'other/checkaga'
  6.  
  7. PROC main()
  8.     IF checkaga()=TRUE  THEN WriteF('- AGA -\n')
  9.     IF checkaga()=FALSE THEN WriteF('- NO AGA -\n')
  10. ENDPROC
  11.